home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Atari Compendium
/
The Atari Compendium (Toad Computers) (1994).iso
/
files
/
compress
/
auto_501.lzh
/
LUMP501.S
< prev
next >
Wrap
Text File
|
1985-11-20
|
22KB
|
1,203 lines
TEXT
Begin
BRA L0004
L0000 DC.B 'super.lum',0,0,0,0,0,0,0
L0001 DS.W 1
L0002 DC.B 'cycle.PRG',0
L0003 DC.B $1B,$45,$1B,$66,$1B,$77
DC.B 'MESSAGE TO APPEAR AT FRONT OF LOADER',13,10
DC.B 'HI FROM EGB... ETC',13,10
DC.B 0
EVEN
L0004 MOVEA.L 4(A7),A5
MOVE.L 12(A5),D0
ADD.L 20(A5),D0
ADD.L 28(A5),D0
ADDI.L #$200,D0
ADDI.L #$4008,D0
MOVE.L D0,-(A7)
MOVE.L A5,-(A7)
MOVE.L #$4A0000,-(A7)
TRAP #1
LEA 12(A7),A7
DC.B $A0,$0A
PEA L0003
MOVE.W #9,-(A7)
TRAP #1
ADDQ.L #6,A7
DC.B $A0,$09
MOVE.L #L00AF,L009E
MOVE.L #L0000,L009A
MOVE.L #L0001,L009B
CLR.L -(A7)
MOVE.W #$20,-(A7)
TRAP #1
ADDQ.L #6,A7
LEA L0096(PC),A6
MOVE.L D0,(A6)
MOVE.L $00000084.L,L000A
MOVE.L #L0006,$00000084.L
MOVE.L L0096(PC),-(A7)
MOVE.W #$20,-(A7)
TRAP #1
ADDQ.L #6,A7
L0005 CLR.L L009C
MOVEA.L #L0005,A7
MOVE.L #L0000,L0099
MOVE.L #-$16,L0098
CLR.L $00060000
PEA $00060000
PEA $00060000
MOVE.L #L0002,-(A7)
MOVE.L #$4B0000,-(A7)
TRAP #1
LEA 16(A7),A7
CLR.W -(A7)
TRAP #1
L0006 TST.W L009D
BNE L0009
MOVEM.L A0-A6/D0-D7,L00A0
MOVEA.L A7,A1
ADDQ.L #6,A1
MOVE.W (A7),D0
BTST #13,D0
BNE.S L0007
MOVE USP,A1
L0007 CMPI.W #$3D,(A1)
BEQ L000B
CMPI.W #$3F,(A1)
BEQ L0014
CMPI.W #$3E,(A1)
BEQ L0032
CMPI.W #$3C,(A1)
BEQ L0042
CMPI.W #$40,(A1)
BEQ L0045
CMPI.W #$42,(A1)
BEQ L0039
CMPI.W #$4E,(A1)
BEQ L0046
CMPI.W #$4F,(A1)
BEQ L0051
CMPI.W #$45,(A1)
BEQ L0052
CMPI.W #$46,(A1)
BEQ L0053
L0008 MOVEM.L L00A0(PC),A0-A6/D0-D7
L0009 JMP $00000000.L
L000A EQU L0009+2
L000B MOVE.W #1,L009D
BSR L0055
MOVE.L D0,D7
MOVE.L D0,D6
MOVEA.L A0,A5
MOVEA.L 2(A1),A6
MOVE.W 6(A1),-(A7)
MOVE.L A6,-(A7)
MOVE.W #$3D,-(A7)
TRAP #1
ADDQ.L #8,A7
TST.L D0
BPL L000D
CLR.L D6
MOVEA.L A6,A0
MOVEA.L L009A,A4
BSR L0057
TST.L D0
BMI L0041
LEA L0095,A1
MOVE.L D7,D6
LSL.L #2,D6
MOVE.L D0,0(A1,D6.W)
LEA L00A4,A1
CLR.L 0(A1,D6.W)
LEA L00A8,A1
MOVE.L A4,0(A1,D6.W)
LEA L00A5,A1
MOVE.L 14(A0),0(A1,D6.W)
LEA L00A7,A1
MOVE.L 18(A0),0(A1,D6.W)
CLR.L D0
MOVEA.L L009E,A0
MOVE.W 200(A0),D0
MULU #$16,D0
ADDQ.L #2,D0
ANDI.L #$FFFF,D0
ADD.L D0,0(A1,D6.W)
MOVE.L D7,D6
LSL.L #5,D7
LEA L00A6,A0
ADDA.L D7,A0
MOVEA.L A6,A2
L000C MOVE.B (A2)+,(A0)+
BNE.S L000C
BRA L0013
L000D MOVE.L D0,D4
CLR.L L00AB
PEA L00AB
MOVE.L #8,-(A7)
MOVE.W D4,-(A7)
MOVE.W #$3F,-(A7)
TRAP #1
LEA 12(A7),A7
CLR.W -(A7)
MOVE.W D4,-(A7)
CLR.L -(A7)
MOVE.W #$42,-(A7)
TRAP #1
LEA 10(A7),A7
MOVEA.L A6,A4
MOVE.L #$1F,D0
L000E MOVE.B (A6)+,(A5)+
DBF D0,L000E
LSL.L #2,D7
LEA L00A4,A0
MOVE.L #0,0(A0,D7.W)
LEA L00A7,A0
MOVE.L #0,0(A0,D7.W)
CMPI.L #"AU5$",L00AB
BEQ.S L000F
LEA L0095,A0
MOVE.L D4,0(A0,D7.W)
LEA L00A8,A0
MOVE.L #0,0(A0,D7.W)
CMPI.L #"AU5C",L00AB
BNE L0013
MOVE.L #-1,0(A0,D7.W)
LEA L00A5,A0
MOVE.L L00AC,0(A0,D7.W)
BRA L0010
L000F LEA L00A5,A0
MOVE.L L00AC,0(A0,D7.W)
LEA L0095,A0
MOVE.L #-1,0(A0,D7.W)
LEA L00A8,A0
MOVE.L #0,0(A0,D7.W)
MOVE.W D4,-(A7)
MOVE.W #$3E,-(A7)
TRAP #1
ADDQ.L #4,A7
L0010 LEA L00A3,A5
L0011 TST.B (A4)
BEQ.S L0012
CMPM.B (A4)+,(A5)+
BEQ.S L0011
BRA.S L0013
L0012 TST.B (A5)
BNE.S L0013
MOVE.L D6,L009C
L0013 CLR.W L009D
MOVE.L D6,-(A7)
MOVEM.L L00A0,A0-A6/D0-D7
MOVE.L (A7)+,D0
RTE
L0014 CLR.L D0
MOVE.W 2(A1),D0
TST.W D0
BMI L0015
MOVE.W D0,D1
LSL.L #2,D1
LEA L0095,A0
MOVE.L 0(A0,D1.W),D2
CMP.W #-1,D2
BEQ L0019
LEA L00A8,A0
MOVE.L 0(A0,D1.W),D3
TST.L D3
BNE L001F
L0015 MOVE.W #1,L009D
MOVE.L 8(A1),D7
MOVE.L D7,-(A7)
MOVE.L 4(A1),-(A7)
MOVE.W D2,-(A7)
MOVE.W #$3F,-(A7)
TRAP #1
LEA 12(A7),A7
MOVE.L D0,D5
MOVEA.L D7,A0
CLR.L D0
MOVE.B (A0),D0
LSL.W #8,D0
MOVE.B 1(A0),D0
SWAP D0
MOVE.B 2(A0),D0
LSL.W #8,D0
MOVE.B 3(A0),D0
CMP.L #"AU5!",D0
BNE L0031
LEA -200(A0),A1
MOVEA.L A1,A2
LEA L00A9,A3
MOVE.L #$C7,D1
L0016 MOVE.B (A2)+,(A3)+
DBF D1,L0016
L0017 MOVE.B (A0)+,(A1)+
SUBQ.L #1,D5
BNE.S L0017
MOVEA.L A2,A1
LEA -200(A1),A0
MOVE.L A0,-(A7)
BSR L0075
MOVEA.L (A7)+,A0
LEA L00A9,A1
MOVE.L #$C7,D1
L0018 MOVE.B (A1)+,(A0)+
DBF D1,L0018
BRA L0031
L0019 CMP.L L009C,D0
BEQ L001B
MOVEA.L A1,A5
MOVE.W #1,L009D
MOVE.L D0,L009C
LSL.L #5,D0
LEA L00A6,A0
ADDA.L D0,A0
MOVEA.L A0,A1
LEA L00A3,A2
MOVE.W #$1F,D0
L001A MOVE.B (A1)+,(A2)+
DBF D0,L001A
CLR.W -(A7)
MOVE.L A0,-(A7)
MOVE.W #$3D,-(A7)
TRAP #1
ADDQ.L #8,A7
MOVE.W D0,D6
MOVE.L L009E,-(A7)
MOVE.L #$2008,-(A7)
MOVE.W D0,-(A7)
MOVE.W #$3F,-(A7)
TRAP #1
LEA 12(A7),A7
MOVE.W D6,-(A7)
MOVE.W #$3E,-(A7)
TRAP #1
ADDQ.L #4,A7
CLR.W L009D
MOVEA.L L009E,A0
LEA 200(A0),A1
MOVE.L 4(A0),D7
BSR L0075
MOVEA.L A5,A1
L001B MOVE.L 4(A1),D0
MOVE.L D0,D5
MOVEA.L 8(A1),A0
MOVE.L L009C,D1
LSL.L #2,D1
LEA L00A4,A2
LEA L00A5,A3
MOVE.L 0(A2,D1.W),D2
MOVE.L 0(A3,D1.W),D3
MOVEA.L L009E,A1
LEA 200(A1),A1
ADDA.L D2,A1
L001C MOVE.B (A1)+,(A0)+
ADDQ.L #1,D2
CMP.L D2,D3
BLT.S L001D
SUBQ.L #1,D0
BNE.S L001C
BRA.S L001E
L001D MOVE.L D3,D2
L001E MOVE.L D2,0(A2,D1.W)
SUB.L D0,D5
BRA L0031
L001F MOVE.W #1,L009D
CMP.L L009C,D0
BEQ L0021
MOVE.L D0,L009C
LEA L00A8,A0
MOVEA.L 0(A0,D1.W),A5
CMPA.L L00A3,A5
BEQ L0021
MOVEA.L A1,A5
LSL.L #5,D0
LEA L00A6,A1
ADDA.L D0,A1
LEA L00A3,A2
MOVE.W #$1F,D0
L0020 MOVE.B (A1)+,(A2)+
DBF D0,L0020
MOVE.L D2,D7
CLR.W -(A7)
MOVE.W D7,-(A7)
CLR.L -(A7)
MOVE.W #$42,-(A7)
TRAP #1
LEA 10(A7),A7
PEA L00AB
MOVE.L #$400,-(A7)
MOVE.W D7,-(A7)
MOVE.W #$3F,-(A7)
TRAP #1
LEA 12(A7),A7
MOVE.L L00AC,D0
MOVE.L L00AD,D2
SUBQ.L #1,D2
EORI.L #-1,D2
AND.L D2,D0
MOVE.L D0,L00AA
MOVE.L #-1,L009F
MOVEA.L A5,A1
MOVE.L D7,D2
MOVE.L L009C,D0
MOVE.L D0,D1
LSL.L #2,D1
L0021 LEA L00A4,A0
MOVE.L 0(A0,D1.W),D4
MOVE.L 4(A1),D5
MOVE.L D4,D7
ADD.L D5,D7
CMP.L D4,D7
BLT.S L0022
LEA L00A5,A0
CMP.L 0(A0,D1.W),D7
BLT L0023
L0022 MOVE.L 0(A0,D1.W),D7
L0023 SUB.L D4,D7
MOVE.L D7,D5
MOVEA.L 8(A1),A4
MOVEA.L A4,A5
ADDA.L D5,A5
SUBA.L #1,A5
TST.L D5
BEQ L0031
LEA L00A4,A0
LEA L00A7,A1
MOVE.L 0(A1,D1.W),D0
ADD.L D0,0(A0,D1.W)
MOVE.W D2,L00A1
MOVE.L D5,D2
LEA L00A4,A0
MOVE.L 0(A0,D1.W),D0
MOVEA.L D0,A2
MOVEA.L A2,A3
MOVE.L L00AD,D3
SUBQ.L #1,D3
AND.L D3,D0
MOVE.L D3,D7
MOVE.L D0,D6
EORI.L #-1,D3
MOVE.L A2,D0
AND.L D3,D0
MOVE.L D0,D4
ADDA.L D5,A3
MOVE.L A3,D5
AND.L D7,D5
MOVE.L A3,D0
AND.L D3,D0
MOVE.L D0,D3
SUB.L D4,D0
MOVE.L L00AD,D7
DIVU D7,D0
MOVE.L D0,D7
MOVE.L D4,D0
MOVE.L L00AD,D2
LEA L00AE,A0
CMP.L L00AA,D0
BNE.S L0024
DIVU D2,D0
LSL.L #2,D0
MOVE.L L00AC,D1
BRA.S L0025
L0024 DIVU D2,D0
LSL.L #2,D0
MOVE.L 4(A0,D0.W),D1
L0025 MOVE.L 0(A0,D0.W),D2
MOVE.L D1,D0
SUB.L D2,D0
CMP.L L009F,D4
BEQ L0026
MOVE.L D4,L009F
CLR.W -(A7)
MOVE.W L00A1,-(A7)
MOVE.L D2,-(A7)
MOVE.L D0,D2
MOVE.W #$42,-(A7)
TRAP #1
LEA 10(A7),A7
MOVE.L L009E,-(A7)
MOVE.L D2,-(A7)
MOVE.W L00A1,-(A7)
MOVE.W #$3F,-(A7)
TRAP #1
LEA 12(A7),A7
MOVEA.L L009E,A0
LEA 200(A0),A1
BSR L0070
BRA L0027
L0026 TST.L D7
BEQ L002C
CLR.W -(A7)
MOVE.W L00A1,-(A7)
MOVE.L D1,-(A7)
MOVE.W #$42,-(A7)
TRAP #1
LEA 10(A7),A7
L0027 CMP.L #1,D7
BLE L002C
MOVE.L D7,-(A7)
LSL.L #2,D7
MOVE.L D4,D0
MOVE.L L00AD,D2
LEA L00AE,A0
DIVU D2,D0
LSL.L #2,D0
MOVE.L 4(A0,D0.W),D1
ADDA.L D7,A0
MOVE.L 0(A0,D0.W),D2
MOVE.L D2,D0
SUB.L D1,D0
MOVEA.L A4,A6
ADDA.L L00AD,A6
SUBA.L D6,A6
LEA -200(A6),A3
MOVE.L A3,D7
MOVE.L #$C7,D1
BTST #0,D7
BEQ.S L0028
ADDQ.L #1,A3
SUBQ.L #1,D1
L0028 MOVE.L (A7),D7
MOVE.L D6,-(A7)
MOVE.L L00AD,D6
MULU D6,D7
MOVE.L (A7)+,D6
ADDA.L D7,A6
MOVE.L (A7)+,D7
LEA L00A9,A0
MOVEA.L A3,A1
MOVE.L D1,D2
L0029 MOVE.B (A1)+,(A0)+
DBF D1,L0029
MOVE.L A3,-(A7)
MOVE.L D0,-(A7)
MOVE.W L00A1,-(A7)
MOVE.W #$3F,-(A7)
TRAP #1
LEA 12(A7),A7
LEA L00AE,A2
MOVE.L D4,D0
MOVE.L D6,-(A7)
MOVE.L L00AD,D6
DIVU D6,D0
MOVE.L (A7)+,D6
LSL.L #2,D0